10 IFPEEK(816)=165ANDPEEK(817)=244THEN30 20 PRINT"[147] KILL CARTRIDGE ! ":END 30 POKE53280,0:POKE53281,0:PRINT"[147][142]"; 40 PRINT"[155][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]" 50 PRINT"[152] TIGER-DISK PRAESENTIERT " 60 PRINT"[151][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]" 70 PRINT"[129] " 80 PRINT" q q " 90 PRINT" P O K E L E S S " 100 PRINT" q q " 110 PRINT" S P R I T E S " 120 PRINT" [209] ---------------------- [209] " 130 PRINT" " 140 PRINT" [209] P%(0)=11 [209] " 150 PRINT" C%(0)= 7 " 160 PRINT" [209] X%(0)= 0-255 [209] " 170 PRINT" Y%(0)= 0-255 " 180 PRINT" [209] E%(0)= 1 [209] " 190 PRINT" H%(0)= 1 " 200 PRINT" [209] V%(0)= 1 [209] " 210 PRINT" B%(0)= 1/0 " 220 PRINT" [209] [209] " 230 PRINT" STARTEN MIT S P A C E " 240 PRINT" [209] ODER R E T U R N [209] " 250 PRINT" ZUM ABBRECHEN! " 260 PRINT" [209] [209] " 270 PRINT" ":GOSUB330 280 GETA$:IFA$<>CHR$(13)ANDA$<>" "THEN280 290 IFA$=" "THEN310 300 END 310 POKE147,0:SYS57812"POKELESS.O",8,1:SYS62631 320 SYS52850:GOSUB440:GOTO390 330 FORN=0TO62:READQ:POKE704+N,Q:NEXT:RETURN 340 DATA250,247,190,34,132,34,34,132,34,34,183,190 350 DATA34,148,40,34,148,36,34,247,162,0,0,0,0,0,0 360 DATA0,252,0,0,252,0,0,0,0,0,0,0,251,239,65 370 DATA130,40,65,130,40,65,131,239,34,130,136,42 380 DATA130,72,42,250,47,54,0,0,0 390 P%(0)=11:C%(0)=7:E%(0)=1:H%(0)=1:V%(0)=1:B%(0)=1 400 FORX=0TO255:X%(0)=X:Y%(0)=X:NEXT 410 GETA$:IFA$<>" "THEN400 420 AB=AB+1:IFAB=1THENB%(0)=0:GOSUB470:GOTO400 430 E%(0)=0:PRINT"[145]":END 440 PRINT"[145][145][145][145][145] SPACE = PRIORITAET " 450 PRINT" [209] AENDERN! [209] " 460 PRINT" ":RETURN 470 PRINT"[145][145][145] " 480 PRINT" [209] S P A C E = BEENDEN! [209] " 490 PRINT" ":RETURN